home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / ch08.Lingo / tutor.dir / 00275.txt < prev    next >
Encoding:
Text File  |  1996-12-05  |  381 b   |  14 lines

  1. global gParamNum, gParamNameList
  2. on startMovie
  3.    set gParamNum = externalParamCount()
  4.    if gParamNum then
  5.      if voidP(gParamNameList) then set ¬¨
  6. gParamNameList = [:]
  7.       repeat with n = 1 to gParamNum
  8.          set parName = externalParamName(n)
  9.          set parValue = externalParamValue(n)
  10.          setAProp gParamNameList, parName, parValue
  11.       end repeat
  12.    end if
  13. end
  14.